home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / dev / misc / LEDA_gene.lha / LEDA-3.1c-generic / prog / basic / list.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-08-05  |  1.2 KB  |  78 lines
  1. #include <LEDA/list.h>
  2. #include <LEDA/stream.h>
  3.  
  4.  
  5.  
  6.  
  7. int cmp_inv(const string& x, const string& y)    { return compare(y,x); }
  8.  
  9. int cmp_length(const string& x, const string& y) 
  10. { return x.length() - y.length(); }
  11.  
  12. int ord(const string& x)   { return (x.length() > 0) ? int(x[0]) : 0;}
  13.  
  14. void upper_case(string& x)
  15. { int d = 'A' - 'a';
  16.   for(int i=0; i<x.length(); i++) 
  17.     if (x[i] >= 'a' && x[i] <= 'z') x[i] += d;
  18.  }
  19.  
  20.  
  21. main()
  22. { 
  23.   string fname = read_string("file: ");
  24.  
  25.   list<string> L;
  26.  
  27.   if (fname == "cin")
  28.      L.read("L = ");
  29.   else
  30.      L.read(file_istream(fname));
  31.  
  32.   L.permute();
  33.  
  34.  
  35. // sort lexicographically
  36.  
  37.   L.sort();   // compare(string,string) used
  38.   L.print("sorted lexicographically:\n",'\n');
  39.   newline;
  40.   newline;
  41.  
  42. // sort decreasing
  43.  
  44.   L.sort(cmp_inv);
  45.   L.print("sorted decrasing:\n",'\n');
  46.   newline;
  47.   newline;
  48.  
  49.  
  50. // sort by length
  51.  
  52.   L.sort(cmp_length);
  53.   L.print("sorted by length:\n",'\n');
  54.   newline;
  55.   newline;
  56.  
  57.  
  58.  
  59. // bucket_sort by first character
  60.  
  61.   L.bucket_sort(0,255,ord);
  62.   L.print("sorted by s[0]:\n",'\n');
  63.   newline;
  64.   newline;
  65.  
  66.  
  67. // turn characters to upper case
  68.  
  69.   L.apply(upper_case);
  70.   L.print("upper case:\n",'\n');
  71.   newline;
  72.  
  73.   newline;
  74.   cout << "used memory = " << used_memory() << " bytes\n";
  75.  
  76.   return 0;
  77. }
  78.